home *** CD-ROM | disk | FTP | other *** search
/ Your Web Site Creator / Your Web Site Creator.iso / WebSite / data1.cab / Program_Executable_Files / scripts / server.dat < prev    next >
Encoding:
Text File  |  1999-01-13  |  18.3 KB  |  537 lines

  1. ;SERVER.DAT   ; get server information
  2.  
  3. ;The update to version 2 was run.
  4. ;xxxxxxxxxxxxxxx ENTER E-MAIL ADDRESSS  xxxxxxxxxxxxxxxxx
  5. [GetEMail]
  6. IF EMail <> ""
  7.   SET email = EMail
  8. ENDIF
  9.  
  10. SETTEMP field1 = email
  11.  
  12. BACKSTOP
  13. PAGE
  14. NOSPELLCHECK
  15. WIZPIC wizpics\mailwiz.gif
  16. TYPE EDIT
  17. NAME field1
  18. DESCRIPTION E-MAIL ADDRESS\nYour E-Mail address is automatically made a part of your family Web site.  This is so those who browse your site can send back messages to you.\n\nWhat is the E-Mail address you would like to use?  Enter it in the space below.
  19. PROMPT &E-Mail address:
  20.  
  21. SET email = field1
  22. IF email = ""
  23.  SET email = "  "
  24. ENDIF
  25.  
  26.  
  27. ;xxxxxxxxxxxxxx ENTER SERVER DETAILS xxxxxxxxxxx
  28. [ServerBegin]
  29. IF skipExplanations = NN
  30.   BACKSTOP
  31.   PAGE
  32.   WIZPIC wizpics\wizcast2.gif
  33.   TYPE DESCRIPTION
  34.   DESCRIPTION \nA PLACE TO STORE YOUR WEB SITE\nTo place your family Web site on the Internet, you must have a "host server".  This is a place where the files that make up your Web site are stored.\n\nThe host server has an address that permits others to find your site (kind of like a phone number!).  For example, it might be "www.jonesfamily.com".\n\nIf you do not already have a "host server" arranged for your site, you will have to get one before you can publish your family Web site.\n\nThere is information about Web site hosting in the online documentation that came with this software, and also in the online User Guide.\n     ...   Press the Next button to continue.
  35. ENDIF
  36.  
  37. IF no_skipping <> YY         ;can't skip if came from a publish request
  38.   SETTEMP performFTP = "skipFTP"
  39.   SETTEMP field1 = performFTP
  40.  
  41.   BACKSTOP
  42.   PAGE
  43.   WIZPIC wizpics\monwiz.gif
  44.   TYPE RADIOBUTTONSWITHTEXT
  45.   NAME field1
  46.   DESCRIPTION SPECIFY YOUR HOST SERVER NOW?\nThis software can upload your Web site files to your own host server.  To do this, the program needs the details to log onto the server.  If you don't have this info for your own server now, you can enter it later.  You will need to have a host server before you can place your Web site on the Internet for others to see.
  47.   ARGUMENT "I &don't want to enter server info.  Skip for now."@skipFTP@"\nIf you are not attempting to publish your Web site right now (upload the files to the Internet), you can skip this step for now.\n\nThe wizard will ask you again later when you decide to publish."
  48.   ARGUMENT "&I want to continue and supply the server info."@getFTP@"\nCompleting this step now will enable you to publish your family Web site (upload the files to the Internet).\n\nThis is a required step before you can upload the files and have others see your site on the Web."
  49.  
  50.   SETTEMP performFTP = field1
  51. ELSE
  52.   SETTEMP performFTP = "getFTP"
  53. ENDIF
  54.  
  55. IF performFTP = "getFTP"        ;going to get server info now
  56.   SET pub_type = ""
  57.   GOSUB EnterItNow
  58. ENDIF
  59.  
  60.  
  61. ;xxxxxxxxxxxxxx ENTER SERVER DETAILS xxxxxxxxxxxx
  62. [EnterItNow] ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
  63. SETTEMP field2 = YY
  64.  
  65. SETTEMP ftpSite = ""
  66.  
  67. SETTEMP success = ""
  68. SET pub_type = "Own"
  69.  
  70. SETTEMP ftpSite = FTPSite      ;set to program/install values
  71. SETTEMP ftpPassword = FTPPassword
  72. SETTEMP ftpUserID = FTPUserID
  73. SETTEMP ftpDir = FTPDirectory
  74. SETTEMP pservername = PServerName
  75.  
  76. IF ftpSite = "" || ftpDir = "" || ftpUserID = "" || ftpPassword = ""
  77.   SET hasGatheredFTPInfo = NN
  78.   SET pub_type = ""
  79. ENDIF
  80. GOSUB InputFTPInfo
  81. GOSUB StashSettings
  82. IF ftpSite <> "" && ftpDir <> "" && ftpUserID <> "" && ftpPassword <> ""
  83.   SET hasGatheredFTPInfo = YY
  84. ELSE
  85.   IF no_skipping = YY
  86.     BACKSTOP
  87.     PAGE
  88.     WIZPIC wizpics\wizcast2.gif
  89.     TYPE DESCRIPTION
  90.     DESCRIPTION \nUH OH!!\nYou didn't fill in all the required information.  One or more of the details was left blank, and that just won't do!\n\nThe wizard will not be able to upload your Web site unless you provide all of the information.\n\nPress the Previous button to return to the prior screen(s) and enter all of the required information.  Don't leave anything blank.
  91.  
  92.     UNWIND PW_ENTRY
  93.  
  94.   ENDIF
  95. ENDIF
  96.  
  97.  
  98.  
  99. [StashSettings]
  100. IF ftpSite <> ""
  101.  SETTEMP group32password = NN
  102.  
  103.  PROJECTSETTINGS
  104.  FTPSITE      ftpSite
  105.  FTPUSERID    ftpUserID
  106.  GROUP32PASSWORD group32password
  107.  FTPPASSWORD  ftpPassword
  108.  FTPDIR       ftpDir
  109. ENDIF
  110.  
  111. ;xxxxxxxxxxxxxxxxxxxx END OF SERVER INFORMATION xxxxxxxxxxxxxxxxxxxxxx
  112.  
  113.  
  114.  
  115.  
  116.  
  117. ;xxxxxxxxxxxxxxxxxxxx INPUT the FTP INFO xxxxxxxxxxxxxxxxxxxxxxx
  118. ; Select from a list of known isp's for automatic ftp info entry
  119. [InputFTPInfo]
  120.  
  121. SETTEMP ftpSite = FTPSite
  122. SETTEMP ftpDir = FTPDir
  123. SETTEMP ftpUserID = FTPUserID
  124. SETTEMP ftpPassword = FTPPassword
  125.  
  126. SETTEMP isp = "not"
  127. SETTEMP field3 = isp
  128.  
  129. BACKSTOP
  130. PAGE
  131. WIZPIC wizpics\monwiz.gif
  132. TYPE LIST
  133. NAME field3
  134. DESCRIPTION SELECT HOST SERVER (for your Web Site)\nTo upload your Web site, the wizard needs information about the Web server that your site will be posted to.  Below is a list of ISPs (Internet Service Providers) already known by the wizard.  If your ISP is on the list, pick it and the required publishing information will be entered automatically.  If your ISP is not on the list, select "Not listed", and the wizard will ask you to supply the necessary information.
  135. ARGUMENT "Not listed"@not
  136. ARGUMENT "Earthlink"@Earthlink
  137. ARGUMENT "Anawave"@Anawave
  138. ARGUMENT "America Online"@AOL
  139. ;ARGUMENT "BerkshireNet"@BerkshireNet
  140. ;ARGUMENT "Brigadoon.com"@Brigadoon.com
  141. ARGUMENT "c4"@c4
  142. ARGUMENT "Communique, Inc."@Communique, Inc.
  143. ARGUMENT "Concentric Network"@Concentric Network
  144. ARGUMENT "Cybergate"@Cybergate
  145. ;ARGUMENT "Citizens Link"@Citizens Link
  146. ARGUMENT "DNAI"@DNAI
  147. ;ARGUMENT "dotSTAR"@dotSTAR
  148. ;ARGUMENT "ERi Net"@ERi Net
  149. ;ARGUMENT "Erols Internet"@Erols Internet
  150. ;ARGUMENT "Exis.Net"@Exis.Net
  151. ARGUMENT "Feist Connections"@Feist Connections
  152. ARGUMENT "Flash Net"@Flash Net
  153. ARGUMENT "Geocities"@Geocities
  154. ARGUMENT "GTE"@GTE
  155. ARGUMENT "iAmerica"@iAmerica
  156. ARGUMENT "Icanect"@Icanect
  157. ARGUMENT "IDT"@IDT
  158. ;ARGUMENT "iinet (Southern Australia)"@iinet (Southern Australia)
  159. ARGUMENT "iinet (Western Australia)"@iinet (Western Australia)
  160. ARGUMENT "Illuminati Online"@Illuminati Online
  161. ;ARGUMENT "Interactive Network Services"@Interactive Network Services
  162. ARGUMENT "Internet Doorway"@Internet Doorway
  163. ARGUMENT "Intertex"@Intertex
  164. ARGUMENT "LavaNet"@LavaNet
  165. ;ARGUMENT "MagicNet"@MagicNet
  166. ;ARGUMENT "Magma Communications"@Magma Communications
  167. ARGUMENT "MCN"@MCN
  168. ARGUMENT "Mindspring"@Mindspring
  169. ;ARGUMENT "Netcom"@Netcom
  170. ARGUMENT "NTR.net"@NTR.net
  171. ARGUMENT "Prodigy Internet"@Prodigy Internet
  172. ;ARGUMENT "RustNet"@RustNet
  173. ARGUMENT "Seanet"@Seanet
  174. ARGUMENT "Shadow"@Shadow
  175. ARGUMENT "Teleport"@Teleport
  176. ARGUMENT "Webcom"@Webcom
  177. ;ARGUMENT "Westmoreland Online"@Westmoreland online
  178. ARGUMENT "Woodbury Telephone"@Woodbury Telephone
  179. ;ARGUMENT "World Wide Net"@World Wide Net
  180.  
  181. SETTEMP isp = field3
  182. SETTEMP msInfo = ""
  183. SETTEMP msInfo1 = ""
  184. SETTEMP msInfo2 = ""
  185. SETTEMP wAddress = ""
  186.  
  187. ; If user's ISP is not listed, prompt for ftp info
  188. IF isp = "not"
  189.  IF skipExplanations = NN
  190.   BACKSTOP
  191.   PAGE
  192.   WIZPIC wizpics\monwiz.gif
  193.   TYPE DESCRIPTION
  194.   DESCRIPTION ENTER PUBLISHING DETAILS\nThe PUBLISH program copies the files for your Web site to the Internet server so the files can be seen by others.  On the next screen, you will be asked to enter four pieces of information needed by PUBLISH.  It's the same info you would supply to your own FTP program to permit it to log in to your server.\n\nThe first piece of information is the server address.  It's typically something like "www.yourserver.com" if you have your own domain or something like "users.bigfoot.net" if you are using free or low-cost shared server space.\n\nYou will also be asked to enter the user ID and password that you use to log onto the Internet, to permit PUBLISH to have access to your server.\n\nThe final piece of information is the directory name.  The directory name is the tricky part.  If you're not sure, ask your ISP what to put.  Put the characters  ~/  (that's "tilde slash") before any directory name, or put them alone if the ISP drops you into the right place automatically.
  195.  
  196.  ENDIF ; skip explanations
  197.  
  198.  BACKSTOP
  199.  PAGE
  200.  NOSPELLCHECK
  201.  WIZPIC wizpics\monwiz.gif
  202.  TYPE FTPINFO
  203.  DESCRIPTION ENTER PUBLISHING DETAILS\nSupply the details needed by the Publish program to log in to your server.  Supply the server location, the user ID and password needed to access the site, and the server directory where the site is to be stored.  If you're not sure about any answer, ask your ISP.  The  ~/  (that's "tilde slash") should precede any directory name, or appear by itself if the ISP drops you into the right place automatically.
  204.  ARGUMENT &Server address (ie, www.mysite.com):@ftpSite@
  205.  ARGUMENT &User ID for logging-in:@ftpUserID@
  206.  ARGUMENT Pass&word to gain access:@ftpPassword@
  207.  ARGUMENT &Directory on the server:@ftpDir@~/
  208. ELSE
  209. ; assert settings for the selected ISP
  210.  
  211. IF isp = "Anawave"
  212.   SETTEMP ftpSite = "anawave.com"
  213.   SETTEMP ftpDir = "~/htdocs"
  214.   SETTEMP wAddress = "www.anawave.com/~"
  215. ENDIF
  216.  
  217. IF isp = "AOL"
  218.   SETTEMP ftpSite = "members.aol.com"
  219.   SETTEMP ftpDir = "~/"
  220.   SETTEMP wAddress = "members.aol.com/"
  221.   SETTEMP msInfo = "\n\nSince your ISP is AOL you need to enter only your AOL screenname.  To publish, you must log onto AOL with that screen name before selecting to publish your site."
  222.   SETTEMP msInfo1 = "\n\nPlease enter your AOL screen name in lower case letters only."
  223. ENDIF
  224.  
  225. IF isp = "BerkshireNet"
  226.   SETTEMP ftpSite = "loomis.berkshire.net"
  227.   SETTEMP ftpDir = "~/www"
  228.   SETTEMP msInfo = "\n\nAfter publishing your site, the permissions for your Web page files may need to be altered for others to be able to view them."
  229.   SETTEMP wAddress = "www.berkshire.net/~"
  230. ENDIF
  231.  
  232. IF isp = "Brigadoon.com"
  233.   SETTEMP ftpSite = "brigadoon.com"
  234.   SETTEMP ftpDir = "~/public_html"
  235.   SETTEMP wAddress = "www.brigadoon.com/~"
  236. ENDIF
  237.  
  238. IF isp = "c4"
  239.   SETTEMP ftpSite = "www.c4.net"
  240.   SETTEMP ftpDir = "~/"
  241.   SETTEMP wAddress = "www.c4.net/~"
  242. ENDIF
  243.  
  244. IF isp = "Citizens Link"
  245.   SETTEMP ftpSite = "ctaz.com"
  246.   SETTEMP ftpDir = "~/www"
  247.   SETTEMP wAddress = "www.ctaz.com/~"
  248. ENDIF
  249.  
  250. IF isp = "Communique, Inc."
  251.   SETTEMP ftpSite = "ftp.communique.net"
  252.   SETTEMP ftpDir = "~/public_html"
  253.   SETTEMP msInfo = "\n\nYou must contact Communique to request your personal Web site before you may publish."
  254.   SETTEMP wAddress = "www.communique.net/~"
  255. ENDIF
  256.  
  257.  
  258. IF isp = "Concentric Network"
  259.   SETTEMP ftpSite = "ftp.concentric.net"
  260.   SETTEMP ftpDir = "~/public_html"
  261.   SETTEMP wAddress = "www.concentric.net/~"
  262. ENDIF
  263.  
  264. IF isp = "Cybergate"
  265.   SETTEMP ftpSite = "www.cybergate.com"
  266.   SETTEMP ftpDir = "~/"
  267.   SETTEMP wAddress = "www.cybergate.com/~"
  268. ENDIF
  269.  
  270. IF isp = "DNAI"
  271.   SETTEMP ftpSite = "ftpup.dnai.com"
  272.   SETTEMP ftpDir = "~/public_html"
  273.   SETTEMP wAddress = "www.dnai.com/~"
  274. ENDIF
  275.  
  276. IF isp = "dotSTAR"
  277.   SETTEMP ftpSite = "ctaz.net"
  278.   SETTEMP ftpDir = "~/"
  279.   SETTEMP wAddress = "www.dotstar.net/personal/"
  280. ENDIF
  281.  
  282. IF isp = "Earthlink"
  283.   SETTEMP ftpSite = "ftp-www.earthlink.net"
  284.   SETTEMP ftpDir = "~/"
  285.   SETTEMP wAddress = "home.earthlink.net/~"
  286. ENDIF
  287.  
  288. IF isp = "ERi Net"
  289.   SETTEMP ftpSite = "eri.erinet.com"
  290.   SETTEMP ftpDir = "~/"
  291.   SETTEMP wAddress = "www.erinet.com/"
  292. ENDIF
  293.  
  294. IF isp = "Erols Internet"
  295.   SETTEMP ftpSite = "erols.erols.com"
  296.   SETTEMP ftpDir = "~/"
  297.   SETTEMP wAddress = "www.erols.com/"
  298. ENDIF
  299.  
  300. IF isp = "Exis.Net"
  301.   SETTEMP ftpSite = "sailfish.exis.net"
  302.   SETTEMP ftpDir = "~/www"
  303.   SETTEMP wAddress = "www.exis.net/~"
  304. ENDIF
  305.  
  306. IF isp = "Feist Connections"
  307.   SETTEMP ftpSite = "wichita.feist.com"
  308.   SETTEMP ftpDir = "~/public_html"
  309.   SETTEMP wAddress = "www.feist.com/~"
  310. ENDIF
  311.  
  312. IF isp = "Flash Net"
  313.   SETTEMP ftpSite = "ftpusers.flash.net"
  314.   SETTEMP ftpDir = "~/www"
  315.   SETTEMP wAddress = "www.flash.net/~"
  316. ENDIF
  317.  
  318. IF isp = "Geocities"
  319.   SETTEMP ftpSite = "ftp.geocities.com"
  320.   SETTEMP ftpDir = "~/"
  321. ENDIF
  322.  
  323. IF isp = "GTE"
  324.   SETTEMP ftpSite = "ftphome1.gte.net"
  325.   SETTEMP ftpDir = "~/"
  326.   SETTEMP msInfo = "\n\nUsers must establish an ftp account before they can publish to their personal Web site."
  327.   SETTEMP wAddress = "home1.gte.net/"
  328. ENDIF
  329.  
  330. IF isp = "iAmerica"
  331.   SETTEMP ftpSite = "cust2.iamerica.net"
  332.   SETTEMP ftpDir = "~/"
  333.   SETTEMP wAddress = "cust.iamerica.net/~"
  334. ENDIF
  335.  
  336. IF isp = "Icanect"
  337.   SETTEMP ftpSite = "members.icanect.net"
  338.   SETTEMP ftpDir = "~/htm"
  339.   SETTEMP wAddress = "members.icanect.net/~"
  340. ENDIF
  341.  
  342. IF isp = "IDT"
  343.   SETTEMP ftpSite = "idt.net"
  344.   SETTEMP ftpDir = "~/public_html"
  345.   msInfo = "\n\nYou may need to contact IDT to have the permissions on your public_html directory set so others may view your Web pages."
  346.   SETTEMP wAddress = "idt.net/~"
  347. ENDIF
  348.  
  349. IF isp = "iinet (Southern Australia)"
  350.   SETTEMP ftpSite = "light.iinet.net.au"
  351.   SETTEMP ftpDir = "~/public_html"
  352.   SETTEMP wAddress = "light.iinet.net.au/~"
  353. ENDIF
  354.  
  355. IF isp = "iinet (Western Australia)"
  356.   SETTEMP ftpSite = "opera.iinet.net.au"
  357.   SETTEMP ftpDir = "~/public_html"
  358.   SETTEMP wAddress = "opera.iinet.net.au/~"
  359. ENDIF
  360.  
  361. IF isp = "Illuminati Online"
  362.   SETTEMP ftpSite = "io.com"
  363.   SETTEMP ftpDir = "~/public_web"
  364.   SETTEMP wAddress = "www.io.com/~"
  365. ENDIF
  366.  
  367. IF isp = "Interactive Network Services"
  368.   SETTEMP ftpSite = "zeus.jersey.net"
  369.   SETTEMP ftpDir = "~/public_html"
  370.   SETTEMP wAddress = "www.jersey.net/~"
  371. ENDIF
  372.  
  373. IF isp = "Internet Doorway"
  374.   SETTEMP ftpSite = "home.netdoor.com"
  375.   SETTEMP ftpDir = "~/public_html"
  376.   SETTEMP wAddress = "www2.netdoor.com/~"
  377. ENDIF
  378.  
  379. IF isp = "Intertex"
  380.   SETTEMP ftpSite = "tron.intertex.net"
  381.   SETTEMP ftpDir = "~/"
  382.   SETTEMP wAddress = "users.intertex.net/~"
  383. ENDIF
  384.  
  385. IF isp = "LavaNet"
  386.   SETTEMP ftpSite = "ftp.lava.net"
  387.   SETTEMP ftpDir = "~/public_html"
  388.   SETTEMP msinfo = "\n\nYou may need to contact LavaNet to have the permissions on your public_html directory set in order to view your pages once they have been published."
  389.   SETTEMP wAddress = "www.lava.net/~"
  390. ENDIF
  391.  
  392. IF isp = "MagicNet"
  393.   SETTEMP ftpSite = "ftp.magicnet.net"
  394.   SETTEMP ftpDir = "~/web-docs"
  395.   SETTEMP wAddress = "www.magicnet.net/~"
  396. ENDIF
  397.  
  398. IF isp = "Magma Communications"
  399.   SETTEMP ftpSite = "home.magmacom.com"
  400.   SETTEMP ftpDir = "~/public_html"
  401.   SETTEMP wAddress = "www.magma.ca/~"
  402. ENDIF
  403.  
  404. IF isp = "MCN"
  405.   SETTEMP ftpSite = "www.mcn.net"
  406.   SETTEMP ftpDir = "~/public_html"
  407.   SETTEMP wAddress = "www.mcn.net/~"
  408. ENDIF
  409.  
  410. IF isp = "Mindspring"
  411.   SETTEMP ftpSite = "ftp.mindspring.com"
  412.   SETTEMP ftpDir = "~/www"
  413.   SETTEMP msInfo1 = "\n\nSince you chose Mindspring, you must enter your mailbox log-in name."
  414.   SETTEMP msInfo2 = "\n\nFor Mindspring, you must enter your mailbox log-in password."
  415.   SETTEMP wAddress = "www.mindspring.com/~"
  416. ENDIF
  417.  
  418. IF isp = "Netcom"
  419.   SETTEMP ftpSite = "pweb.netcom.com"
  420.   SETTEMP ftpDir = "~/"
  421.   SETTEMP wAddress = "pweb.netcom.com/~"
  422. ENDIF
  423.  
  424. IF isp = "NTR.net"
  425.   SETTEMP ftpSite = "ntr.net"
  426.   SETTEMP ftpDir = "~/www"
  427.   SETTEMP wAddress = "www.ntr.net/~"
  428. ENDIF
  429.  
  430. IF isp = "Prodigy Internet"
  431.   SETTEMP ftpSite = "pages.prodigy.net"
  432.   SETTEMP ftpDir = "~/"
  433.   SETTEMP wAddress = "pages.prodigy.net/"
  434. ENDIF
  435.  
  436. IF isp = "RustNet"
  437.   SETTEMP ftpSite = "www.rust.net"
  438.   SETTEMP ftpDir = "~/public_html"
  439.   SETTEMP wAddress = "www.rust.net/~"
  440. ENDIF
  441.  
  442. IF isp = "Seanet"@Seanet
  443.   SETTEMP ftpSite = "www.seanet.com"
  444.   SETTEMP ftpDir = "~/HTML"
  445.   SETTEMP wAddress = "www.seanet.com/~"
  446. ENDIF
  447.  
  448. IF isp = "Shadow"
  449.   SETTEMP ftpSite = "ftp.shadow.net"
  450.   SETTEMP ftpDir = "~/.html"
  451.   SETTEMP wAddress = "www.shadow.com/~"
  452. ENDIF
  453.  
  454. IF isp = "Teleport"
  455.   SETTEMP ftpSite = "ftp.teleport.com"
  456.   SETTEMP ftpDir = "~/public_html"
  457.   SETTEMP wAddress = "www.teleport.com/~"
  458. ENDIF
  459.  
  460. IF isp = "Webcom"
  461.   SETTEMP ftpSite = "ftp.webcom.com"
  462.   SETTEMP ftpDir = "~/www"
  463. ENDIF
  464.  
  465. IF isp = "Westmoreland Online"
  466.   SETTEMP ftpSite = "ftp.westol.com"
  467.   SETTEMP ftpDir = "~/public_html"
  468.   SETTEMP wAddress = "www.westol.com/~"
  469. ENDIF
  470.  
  471. IF isp = "Woodbury Telephone"
  472.   SETTEMP ftpSite = "wtco.net"
  473.   SETTEMP ftpDir = "~/public_html"
  474.   SETTEMP wAddress = "www.wtco.net/homepages/"
  475. ENDIF
  476.  
  477. IF isp = "World Wide Net"
  478.   SETTEMP ftpSite = "ftp.westol.com"
  479.   SETTEMP ftpDir = "~/public_html"
  480.   SETTEMP wAddress = "www.wwnet.com/~"
  481. ENDIF
  482.  
  483. ;Get username and password
  484. BACKSTOP
  485. PAGE
  486. WIZPIC wizpics\monwiz.gif
  487. TYPE DESCRIPTION
  488. DESCRIPTION_RE "AUTOMATIC ENTRY COMPLETE\nThe publishing settings for ",isp," have been entered for you automatically.\n\nThese settings are the FTP address (in this case it was ",ftpSite,") and the directory to use (yours was set to ",ftpDir,").\n\nTo complete the information needed to publish, you will need to supply your log-in ID and password on the screens that follow.",msInfo
  489.  
  490. ;Get username
  491. SETTEMP field4 = ftpUserID
  492.  
  493. BACKSTOP
  494. PAGE
  495. NOSPELLCHECK
  496. WIZPIC wizpics\monwiz.gif
  497. TYPE EDIT
  498. NAME field4
  499. PROMPT &User ID:
  500. DESCRIPTION_RE "ENTER USER ID\nFill in your User ID that you supply when logging on to the Internet.  This will be used by Your Family Web Site's publisher program to move your Web site files out to the Internet.\n\nThis entry is required.  You cannot leave it blank.",msInfo1
  501.  
  502. SETTEMP ftpUserID = field4
  503.  
  504. ;Get password
  505.  
  506. IF ISP <> "AOL"
  507. SETTEMP field5 = ftpPassword
  508.  
  509. BACKSTOP PW_ENTRY
  510. PAGE
  511. NOSPELLCHECK
  512. WIZPIC wizpics\monwiz.gif
  513. TYPE PASSWORD
  514. NAME field5
  515. PROMPT &Log In Password:
  516. DESCRIPTION_RE "ENTER LOG-IN PASSWORD\nFill in the password that you supply when logging on to the Internet.  This will be used by Your Family's Web Site's publisher program to move your Web site files out to the Internet.\n\nThis entry is required.  You cannot leave it blank.",msInfo2
  517.  
  518. SETTEMP ftpPassword = field5
  519.  
  520. ENDIF; ISP <> "AOL"
  521.  
  522. IF wAddress <> ""
  523. BACKSTOP
  524. PAGE
  525. WIZPIC wizpics\monwiz.gif
  526. TYPE Description
  527. NAME wAddress
  528. DESCRIPTION_RE "ENTRY COMPLETED\nThe Publishing information has been entered.  The program stores this with your Web site project, and it can be reviewed from the menu item Website-properties or using your friendly wizard!\n\nIn order to publish your site to the Internet so your friends and family will be able to view your Web site, simply choose to Publish your site from the main Homepage Expert menu! ( You will need to connect to the Internet to allow the program's Publisher to post your Web pages. )\n\nThe world wide Web address of your home page at ",isp," will be:\n\n        http://",wAddress,ftpUserID
  529.  
  530. ENDIF; wAddress <> ""
  531.  
  532. IF ISP = "AOL"
  533.   SETTEMP ftpPassword = ftpUserID,"@aol.com"
  534.   SETTEMP ftpUserID = "ftp"
  535. ENDIF; ISP ="AOL"
  536. ENDIF; ISP = not
  537.